sub check_register_nic
{
	require "../config.pl";
	
	my $ath = $dbcnx->prepare(qq{SELECT id FROM reg WHERE name = ?});
	$ath->execute($_[0]);
	my $numrows = $ath->rows;
	if ($numrows > 0)
	{	
	
		$uname_auth = $ath->fetchrow_array();
		
		$ath->finish();
		$dbcnx->disconnect();
		return 0;
	}
	$ath->finish();
	$dbcnx->disconnect();
	return 1;
}


require "../core.pl";

&get_query();
my $nic=$queryString{ "nic" };
print "Content-Type: text/html; charset=utf-8\n\n";

if (!check_register_nic($nic))
{
	print "Логин уже занят";
}
else #Имя пользователя свободно!!
{
	if ($nic !~ /^[a-z0-9\.\-_]+$/i)
	{
		#print $nic;
		print "Недопустимый логин <font style=\"font-size: 0.8em\">Логин должен состоять из латинских символов, цифр, дефиса или точки и длинной не более 30 символов.</font>";
	}
	else
	{
		#print $nic;
		print "1";#Имя пользователя свободно и соответствует!!
	}
}
